0 S=54272:FORI=0TO24:READA:POKES+I,A:NEXT
10 DATA189,2,92,1,0,0,255
20 DATA190,2,12,6,0,0,255
30 DATA191,2,12,6,0,0,255
40 DATA3,140,247,31
50 POKES+4,69:POKES+11,21:POKES+18,87
60 FORI=225TO0STEP-1:POKES+22,I+20:POKES,255-I:POKES+7,254-I:NEXT
70 POKES+4,64:POKES+11,18:POKES+18,0